home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / text / dtp / fontlist.lha / FontList / FontList-E2.rexx next >
OS/2 REXX Batch file  |  1996-10-27  |  4KB  |  112 lines
  1. /* FontList 1.1 (c) 28.10.1996 Luboî Nëmec, E2 verze, FREEWARE
  2.    Vytvoêí vzorník fontû ze vîech formátû fontû podporovaných PGS3
  3.    a momentálnë nainstalovaných/aktivních v preferencích PGS3 "System Preferences/Fonts"
  4.    Tento skript je dëlán pro stránku A4 portrait, pêednastavení viz níùe.
  5.    Nastavení rozmërû textových sloupcû lze zmënit v oddílu "page margins".
  6.    
  7.    Doporuçené hodnoty: velikosti êezû:                 4-36 bodû (nastaveno 8 bodû)
  8.                        îíêka fontû:                   40-150%    (nastaveno 100%)
  9.                        êádkování [relativní]:        100-200%    (nastaveno 120%)
  10.                        odstup mezi jednotlivými fonty: 0-50 bodû (nastaveny 3 body)
  11.                        okraje stránky:                 1 cm od kaùdého kraje (nastaven 1 cm)
  12.                        poçet sloupcû:                  1-2       (nastaven 1 sloupec)
  13.                        mezera mezi sloupci:            5-50      (nepouùito)
  14.                        maximální poçet stran: limitováno jen volnou pamëtí (nastaveno 500)
  15. */
  16.  
  17.  
  18.  
  19. address 'PAGESTREAM'
  20. options results
  21. trace on
  22.  
  23. /* page margins in milimeters & maximum pages number */
  24.  
  25. left=10
  26. right=10
  27. top=10
  28. bottom=10
  29. column=1
  30. gutter=5
  31. maxpages=500
  32.  
  33. /* main script */
  34.  
  35. setautocolumns off
  36. display page 1
  37. 'getstring string "8" title "Size" posbutton "_OK" negbutton "_Cancel"'
  38. size=RESULT; button=RC
  39. if RC=10 then exit
  40. if size>36 then exit
  41. if size<4 then exit
  42. 'getstring string "100" title "Width" posbutton "_OK" negbutton "_Cancel"'
  43. width=RESULT; button=RC
  44. if RC=10 then exit
  45. if width<40 then exit
  46. if width>150 then exit
  47. 'getstring string "120" title "Leading" posbutton "_OK" negbutton "_Cancel"'
  48. leading=RESULT; button=RC
  49. if RC=10 then exit
  50. if leading<100 then exit
  51. if leading>200 then exit
  52. 'getstring string "3" title "EmptyLine" posbutton "_OK" negbutton "_Cancel"'
  53. space=RESULT; button=RC
  54. if RC=10 then exit
  55. if space<0 then exit
  56. if space>50 then exit
  57.  
  58.  
  59. getfontlist jmeno
  60. pocet=result
  61.  
  62. settypesize size; settypewidth width
  63. createcolumns margins left''mm right''mm top''mm bottom''mm columns column gutter gutter''mm linked page 1 to 1
  64. settoolmode text; selecttext at left+5''mm top+5''mm frontmost
  65.  
  66. openbusyrequester message "'Making FontList...'" thermometer enabled abort enabled total pocet current 0
  67. bh=RESULT
  68. do x=0 to pocet-1
  69. settypesize size; settypewidth width; setleading relative leading
  70. 'setfont "'jmeno.x'"'
  71. 'insert "'jmeno.x'"'
  72. 'insert "  'size' bodû  ëîçêùýáíéóûúðïñäüöãâËÎÇÊÙÝÁÍÉÓÛÚÐÏÑÄÜÖ  0123456789"'
  73. insertcontrol newparagraph
  74. 'insert "!#$%&()*+,-./:;<=>?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz{|}~"'
  75. insertcontrol newparagraph
  76. settypesize space; setleading fixed space; 'insert " "'; insertcontrol newparagraph
  77.  
  78. getbusyrequester bh
  79. if result=1 then do
  80.    closebusyrequester bh
  81.    do y=1 to maxpages
  82.      getarticleoverset
  83.       if result=TRUE then do
  84.            display page next; settoolmode column
  85.            createcolumns margins left''mm right''mm top''mm bottom''mm columns column gutter gutter linked page y+1 to y+1
  86.            settoolmode routetext; settextrouting from left+5''mm top+5''mm page y to left+5''mm top+5''mm page y+1
  87.            settoolmode text; selecttext at left+5''mm right+5''mm frontmost
  88.       end
  89.        else do
  90.             display page 1; settoolmode object; exit
  91.             end
  92.    end y
  93.  end 
  94.    else setbusyrequester bh current x+1
  95. end x
  96. closebusyrequester bh
  97.  
  98. do y=1 to maxpages
  99. getarticleoverset
  100. if result=TRUE then do
  101.    display page next; settoolmode column
  102.    createcolumns margins left''mm right''mm top''mm bottom''mm columns column gutter gutter linked page y+1 to y+1
  103.    settoolmode routetext; settextrouting from left+5''mm top+5''mm page y to left+5''mm top+5''mm page y+1
  104.    settoolmode text; selecttext at left+5''mm top+5''mm frontmost
  105.    end
  106. else do
  107.      display page 1; settoolmode object; exit
  108.      end
  109. end
  110. display page 1
  111. settoolmode object
  112.